home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / kuang / kuangeleven28.lha / Rexx / CTCP / GETSOUND.amirx < prev    next >
Text File  |  1997-03-16  |  865b  |  31 lines
  1. /* K¹¹ Plugin : GETSOUND command to send sounds on ctcp request
  2. *   Requires AmIRC 1.30!
  3. */
  4. options results
  5. parse arg ':'prefix' 'type' 'channel' :'text
  6. parse var prefix nick'!'user'@'host
  7. div='01'x
  8. parse var text (div) command file . (div)
  9. if upper(command)~='GETSOUND' then exit
  10. if file~==compress(file,'/:`"*') then exit
  11. "GETCTCPSOUNDDIR"
  12. fullfile=prsprg(result)||file
  13. if ~exists(fullfile) then cecho('Unable to send' d2c(2)file||d2c(2) 'to' d2c(2)nick||d2c(2))
  14. else do
  15.     'SAY /DCC SEND' nick fullfile
  16.     cecho('Sent' d2c(2)file||d2c(2) 'to' d2c(2)nick||d2c(2))
  17. end
  18. exit
  19. prsprg:PROCEDURE
  20. x=arg(1)
  21. z=right(x,1)
  22. if z~='/'&z~=':' then x=x||'/'
  23. if upper(left(x,8))='PROGDIR:' then do
  24.     y=pragma('d')
  25.     z=right(y,1)
  26.     if z~='/'&z~=':' then y=y||'/'
  27.     if length(x)>8 then return y||substr(x,9);else return y
  28. end
  29. return x
  30. cecho:;"ECHO P="d2c(27)"b«SendSound»" arg(1);return 0
  31.